BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / MIDI / H-M / Midifile routines.sit / midifile routines Folder / readmidi.c < prev next >
MacBinary | 1992-11-15 | 7.1 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Nov 15 18:59:40 1992, modified Sun Nov 15 18:59:40 1992, creator 'MPS ', type ASCII, 6673 bytes "readmidi.c" , at 0x1a91 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 72 65 61 64 6d 69 | 64 69 2e 63 00 00 00 00 |..readmi|di.c....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 1a 11 00 | 00 01 7e a7 2c 94 ec a7 |........|..~.,...|
|00000060| 2c 94 ec 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |,.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 fa 61 00 00 |........|.....a..|
|00000080| 2f 2a 20 20 74 68 69 73 | 20 70 72 6f 67 72 61 6d |/*  this| program|
|00000090| 20 72 65 61 64 73 20 61 | 20 63 73 6f 75 6e 64 20 | reads a| csound |
|000000a0| 73 63 6f 72 65 20 61 6e | 64 20 77 72 69 74 65 73 |score an|d writes|
|000000b0| 20 61 20 6d 69 64 69 20 | 66 69 6c 65 2e 0d 20 20 | a midi |file..  |
|000000c0| 20 20 54 68 65 20 43 73 | 6f 75 6e 64 20 69 6e 73 |  The Cs|ound ins|
|000000d0| 74 72 2e 20 23 20 62 65 | 63 6f 6d 65 20 6d 69 64 |tr. # be|come mid|
|000000e0| 69 20 63 68 61 6e 20 23 | 2c 20 74 68 65 20 73 74 |i chan #|, the st|
|000000f0| 61 72 74 20 74 69 6d 65 | 20 61 6e 64 20 64 75 72 |art time| and dur|
|00000100| 61 74 69 6f 6e 0d 20 20 | 20 20 73 68 6f 75 6c 64 |ation.  |  should|
|00000110| 20 62 65 20 69 6e 20 73 | 65 63 6f 6e 64 73 2c 20 | be in s|econds, |
|00000120| 70 34 20 73 68 6f 75 6c | 64 20 3d 20 6d 69 64 69 |p4 shoul|d = midi|
|00000130| 20 61 6d 70 20 69 2e 65 | 2e 62 65 74 77 65 65 6e | amp i.e|.between|
|00000140| 20 30 20 61 6e 64 20 31 | 32 37 20 61 6e 64 20 70 | 0 and 1|27 and p|
|00000150| 35 0d 20 20 20 20 73 68 | 6f 75 6c 64 20 62 65 20 |5.    sh|ould be |
|00000160| 74 68 65 20 6d 69 64 69 | 20 6e 6f 74 65 20 6e 75 |the midi| note nu|
|00000170| 6d 62 65 72 20 30 20 74 | 6f 20 31 32 37 2e 20 2a |mber 0 t|o 127. *|
|00000180| 2f 0d 0d 23 69 6e 63 6c | 75 64 65 20 3c 73 74 64 |/..#incl|ude <std|
|00000190| 69 6f 2e 68 3e 0d 23 69 | 6e 63 6c 75 64 65 20 3c |io.h>.#i|nclude <|
|000001a0| 73 74 64 6c 69 62 2e 68 | 3e 0d 0d 46 49 4c 45 09 |stdlib.h|>..FILE.|
|000001b0| 2a 66 70 3b 0d 0d 57 72 | 69 74 65 56 61 72 4c 65 |*fp;..Wr|iteVarLe|
|000001c0| 6e 28 76 61 6c 75 65 29 | 0d 09 6c 6f 6e 67 20 76 |n(value)|..long v|
|000001d0| 61 6c 75 65 3b 0d 7b 0d | 09 6c 6f 6e 67 09 62 75 |alue;.{.|.long.bu|
|000001e0| 66 66 65 72 3b 0d 09 62 | 75 66 66 65 72 09 3d 20 |ffer;..b|uffer.= |
|000001f0| 76 61 6c 75 65 20 26 20 | 30 78 37 66 3b 0d 09 77 |value & |0x7f;..w|
|00000200| 68 69 6c 65 28 28 76 61 | 6c 75 65 3e 3e 3d 37 29 |hile((va|lue>>=7)|
|00000210| 20 3e 20 30 29 0d 09 7b | 0d 09 09 62 75 66 66 65 | > 0)..{|...buffe|
|00000220| 72 09 3c 3c 3d 20 38 3b | 0d 09 09 62 75 66 66 65 |r.<<= 8;|...buffe|
|00000230| 72 09 7c 3d 20 30 78 38 | 30 3b 0d 09 09 62 75 66 |r.|= 0x8|0;...buf|
|00000240| 66 65 72 09 2b 3d 20 28 | 76 61 6c 75 65 20 26 20 |fer.+= (|value & |
|00000250| 30 78 37 66 29 3b 0d 09 | 7d 0d 09 77 68 69 6c 65 |0x7f);..|}..while|
|00000260| 28 31 29 0d 09 7b 0d 09 | 09 70 75 74 63 28 28 69 |(1)..{..|.putc((i|
|00000270| 6e 74 29 20 28 62 75 66 | 66 65 72 20 26 20 30 78 |nt) (buf|fer & 0x|
|00000280| 46 46 29 2c 66 70 29 3b | 0d 09 09 69 66 28 62 75 |FF),fp);|...if(bu|
|00000290| 66 66 65 72 20 26 20 30 | 78 38 30 29 0d 09 09 20 |ffer & 0|x80)... |
|000002a0| 09 62 75 66 66 65 72 09 | 3e 3e 3d 20 38 3b 0d 09 |.buffer.|>>= 8;..|
|000002b0| 09 65 6c 73 65 0d 09 09 | 09 62 72 65 61 6b 3b 0d |.else...|.break;.|
|000002c0| 09 7d 0d 7d 0d 69 6e 74 | 20 43 6f 75 6e 74 57 72 |.}.}.int| CountWr|
|000002d0| 69 74 65 56 61 72 4c 65 | 6e 28 76 61 6c 75 65 29 |iteVarLe|n(value)|
|000002e0| 0d 09 6c 6f 6e 67 20 76 | 61 6c 75 65 3b 0d 7b 0d |..long v|alue;.{.|
|000002f0| 09 6c 6f 6e 67 09 62 75 | 66 66 65 72 3b 0d 09 69 |.long.bu|ffer;..i|
|00000300| 6e 74 09 09 63 6f 75 6e | 74 3b 0d 09 63 6f 75 6e |nt..coun|t;..coun|
|00000310| 74 20 3d 20 30 3b 0d 09 | 62 75 66 66 65 72 09 3d |t = 0;..|buffer.=|
|00000320| 20 76 61 6c 75 65 20 26 | 20 30 78 37 66 3b 0d 09 | value &| 0x7f;..|
|00000330| 77 68 69 6c 65 28 28 76 | 61 6c 75 65 3e 3e 3d 37 |while((v|alue>>=7|
|00000340| 29 20 3e 20 30 29 0d 09 | 7b 0d 09 09 62 75 66 66 |) > 0)..|{...buff|
|00000350| 65 72 09 3c 3c 3d 20 38 | 3b 0d 09 09 62 75 66 66 |er.<<= 8|;...buff|
|00000360| 65 72 09 7c 3d 20 30 78 | 38 30 3b 0d 09 09 62 75 |er.|= 0x|80;...bu|
|00000370| 66 66 65 72 09 2b 3d 20 | 28 76 61 6c 75 65 20 26 |ffer.+= |(value &|
|00000380| 20 30 78 37 66 29 3b 0d | 09 7d 0d 09 77 68 69 6c | 0x7f);.|.}..whil|
|00000390| 65 28 31 29 0d 09 7b 0d | 09 09 63 6f 75 6e 74 2b |e(1)..{.|..count+|
|000003a0| 2b 3b 0d 09 09 69 66 28 | 62 75 66 66 65 72 20 26 |+;...if(|buffer &|
|000003b0| 20 30 78 38 30 29 0d 09 | 09 20 09 62 75 66 66 65 | 0x80)..|. .buffe|
|000003c0| 72 09 3e 3e 3d 20 38 3b | 0d 09 09 65 6c 73 65 0d |r.>>= 8;|...else.|
|000003d0| 09 09 09 62 72 65 61 6b | 3b 0d 09 7d 0d 09 72 65 |...break|;..}..re|
|000003e0| 74 75 72 6e 20 63 6f 75 | 6e 74 3b 0d 7d 0d 0d 0d |turn cou|nt;.}...|
|000003f0| 0d 66 6c 6f 61 74 09 2a | 73 65 74 69 6d 65 73 3b |.float.*|setimes;|
|00000400| 0d 75 6e 73 69 67 6e 65 | 64 20 73 68 6f 72 74 20 |.unsigne|d short |
|00000410| 20 20 2a 76 6f 69 63 65 | 2c 2a 6e 6f 74 65 6e 75 |  *voice|,*notenu|
|00000420| 6d 2c 2a 61 6d 70 3b 0d | 66 6c 6f 61 74 09 74 65 |m,*amp;.|float.te|
|00000430| 6d 70 66 3b 0d 75 6e 73 | 69 67 6e 65 64 20 73 68 |mpf;.uns|igned sh|
|00000440| 6f 72 74 09 74 65 6d 70 | 62 3b 0d 69 6e 74 09 69 |ort.temp|b;.int.i|
|00000450| 3b 0d 2f 2a 20 72 65 63 | 75 72 73 69 76 65 20 73 |;./* rec|ursive s|
|00000460| 6f 72 74 20 61 6c 67 6f | 72 69 74 68 6d 2e 20 73 |ort algo|rithm. s|
|00000470| 65 65 20 70 2e 38 37 20 | 22 54 68 65 20 43 20 50 |ee p.87 |"The C P|
|00000480| 72 6f 67 72 61 6d 6d 69 | 6e 67 20 4c 61 6e 67 75 |rogrammi|ng Langu|
|00000490| 61 67 65 22 20 2a 2f 0d | 2f 2a 20 20 62 79 20 4b |age" */.|/*  by K|
|000004a0| 65 72 6e 69 6e 67 68 61 | 6d 20 61 6e 64 20 52 69 |erningha|m and Ri|
|000004b0| 74 63 68 69 65 20 2a 2f | 0d 51 75 69 63 6b 53 6f |tchie */|.QuickSo|
|000004c0| 72 74 28 6c 65 66 74 2c | 72 69 67 68 74 29 0d 09 |rt(left,|right)..|
|000004d0| 69 6e 74 20 6c 65 66 74 | 2c 72 69 67 68 74 3b 0d |int left|,right;.|
|000004e0| 7b 0d 09 69 6e 74 09 6c | 61 73 74 3b 0d 09 69 66 |{..int.l|ast;..if|
|000004f0| 28 6c 65 66 74 3e 3d 72 | 69 67 68 74 29 0d 09 09 |(left>=r|ight)...|
|00000500| 72 65 74 75 72 6e 3b 0d | 09 74 65 6d 70 66 20 3d |return;.|.tempf =|
|00000510| 20 73 65 74 69 6d 65 73 | 5b 6c 65 66 74 5d 20 3b | setimes|[left] ;|
|00000520| 0d 09 73 65 74 69 6d 65 | 73 5b 6c 65 66 74 5d 20 |..setime|s[left] |
|00000530| 3d 20 73 65 74 69 6d 65 | 73 5b 28 6c 65 66 74 2b |= setime|s[(left+|
|00000540| 72 69 67 68 74 29 2f 32 | 5d 20 3b 0d 09 73 65 74 |right)/2|] ;..set|
|00000550| 69 6d 65 73 5b 28 6c 65 | 66 74 2b 72 69 67 68 74 |imes[(le|ft+right|
|00000560| 29 2f 32 5d 20 3d 20 74 | 65 6d 70 66 20 3b 0d 0d |)/2] = t|empf ;..|
|00000570| 09 74 65 6d 70 62 20 3d | 20 76 6f 69 63 65 5b 6c |.tempb =| voice[l|
|00000580| 65 66 74 5d 20 3b 0d 09 | 76 6f 69 63 65 5b 6c 65 |eft] ;..|voice[le|
|00000590| 66 74 5d 20 3d 20 76 6f | 69 63 65 5b 28 6c 65 66 |ft] = vo|ice[(lef|
|000005a0| 74 2b 72 69 67 68 74 29 | 2f 32 5d 20 3b 0d 09 76 |t+right)|/2] ;..v|
|000005b0| 6f 69 63 65 5b 28 6c 65 | 66 74 2b 72 69 67 68 74 |oice[(le|ft+right|
|000005c0| 29 2f 32 5d 20 3d 20 74 | 65 6d 70 62 20 3b 0d 0d |)/2] = t|empb ;..|
|000005d0| 09 74 65 6d 70 62 20 3d | 20 6e 6f 74 65 6e 75 6d |.tempb =| notenum|
|000005e0| 5b 6c 65 66 74 5d 20 3b | 0d 09 6e 6f 74 65 6e 75 |[left] ;|..notenu|
|000005f0| 6d 5b 6c 65 66 74 5d 20 | 3d 20 6e 6f 74 65 6e 75 |m[left] |= notenu|
|00000600| 6d 5b 28 6c 65 66 74 2b | 72 69 67 68 74 29 2f 32 |m[(left+|right)/2|
|00000610| 5d 20 3b 0d 09 6e 6f 74 | 65 6e 75 6d 5b 28 6c 65 |] ;..not|enum[(le|
|00000620| 66 74 2b 72 69 67 68 74 | 29 2f 32 5d 20 3d 20 74 |ft+right|)/2] = t|
|00000630| 65 6d 70 62 20 3b 0d 0d | 09 74 65 6d 70 62 20 3d |empb ;..|.tempb =|
|00000640| 20 61 6d 70 5b 6c 65 66 | 74 5d 20 3b 0d 09 61 6d | amp[lef|t] ;..am|
|00000650| 70 5b 6c 65 66 74 5d 20 | 3d 20 61 6d 70 5b 28 6c |p[left] |= amp[(l|
|00000660| 65 66 74 2b 72 69 67 68 | 74 29 2f 32 5d 20 3b 0d |eft+righ|t)/2] ;.|
|00000670| 09 61 6d 70 5b 28 6c 65 | 66 74 2b 72 69 67 68 74 |.amp[(le|ft+right|
|00000680| 29 2f 32 5d 20 3d 20 74 | 65 6d 70 62 20 3b 0d 09 |)/2] = t|empb ;..|
|00000690| 0d 09 6c 61 73 74 20 3d | 20 6c 65 66 74 3b 0d 09 |..last =| left;..|
|000006a0| 66 6f 72 28 69 3d 6c 65 | 66 74 2b 31 3b 20 69 3c |for(i=le|ft+1; i<|
|000006b0| 3d 72 69 67 68 74 20 3b | 20 69 2b 2b 29 0d 09 09 |=right ;| i++)...|
|000006c0| 69 66 28 73 65 74 69 6d | 65 73 5b 69 5d 20 3c 20 |if(setim|es[i] < |
|000006d0| 73 65 74 69 6d 65 73 5b | 6c 65 66 74 5d 29 0d 09 |setimes[|left])..|
|000006e0| 09 09 69 66 28 69 20 21 | 3d 20 28 2b 2b 6c 61 73 |..if(i !|= (++las|
|000006f0| 74 29 29 0d 09 09 09 7b | 0d 09 09 09 09 74 65 6d |t))....{|.....tem|
|00000700| 70 66 20 3d 20 73 65 74 | 69 6d 65 73 5b 69 5d 20 |pf = set|imes[i] |
|00000710| 3b 0d 09 09 09 09 73 65 | 74 69 6d 65 73 5b 69 5d |;.....se|times[i]|
|00000720| 20 3d 20 73 65 74 69 6d | 65 73 5b 6c 61 73 74 5d | = setim|es[last]|
|00000730| 20 3b 0d 09 09 09 09 73 | 65 74 69 6d 65 73 5b 6c | ;.....s|etimes[l|
|00000740| 61 73 74 5d 20 3d 20 74 | 65 6d 70 66 20 3b 0d 0d |ast] = t|empf ;..|
|00000750| 09 09 09 09 74 65 6d 70 | 62 20 3d 20 76 6f 69 63 |....temp|b = voic|
|00000760| 65 5b 69 5d 20 3b 0d 09 | 09 09 09 76 6f 69 63 65 |e[i] ;..|...voice|
|00000770| 5b 69 5d 20 3d 20 76 6f | 69 63 65 5b 6c 61 73 74 |[i] = vo|ice[last|
|00000780| 5d 20 3b 0d 09 09 09 09 | 76 6f 69 63 65 5b 6c 61 |] ;.....|voice[la|
|00000790| 73 74 5d 20 3d 20 74 65 | 6d 70 62 20 3b 0d 0d 09 |st] = te|mpb ;...|
|000007a0| 09 09 09 74 65 6d 70 62 | 20 3d 20 6e 6f 74 65 6e |...tempb| = noten|
|000007b0| 75 6d 5b 69 5d 20 3b 0d | 09 09 09 09 6e 6f 74 65 |um[i] ;.|....note|
|000007c0| 6e 75 6d 5b 69 5d 20 3d | 20 6e 6f 74 65 6e 75 6d |num[i] =| notenum|
|000007d0| 5b 6c 61 73 74 5d 20 3b | 0d 09 09 09 09 6e 6f 74 |[last] ;|.....not|
|000007e0| 65 6e 75 6d 5b 6c 61 73 | 74 5d 20 3d 20 74 65 6d |enum[las|t] = tem|
|000007f0| 70 62 20 3b 0d 0d 09 09 | 09 09 74 65 6d 70 62 20 |pb ;....|..tempb |
|00000800| 3d 20 61 6d 70 5b 69 5d | 20 3b 0d 09 09 09 09 61 |= amp[i]| ;.....a|
|00000810| 6d 70 5b 69 5d 20 3d 20 | 61 6d 70 5b 6c 61 73 74 |mp[i] = |amp[last|
|00000820| 5d 20 3b 0d 09 09 09 09 | 61 6d 70 5b 6c 61 73 74 |] ;.....|amp[last|
|00000830| 5d 20 3d 20 74 65 6d 70 | 62 20 3b 0d 09 09 09 7d |] = temp|b ;....}|
|00000840| 0d 09 0d 09 74 65 6d 70 | 66 20 3d 20 73 65 74 69 |....temp|f = seti|
|00000850| 6d 65 73 5b 6c 65 66 74 | 5d 20 3b 0d 09 73 65 74 |mes[left|] ;..set|
|00000860| 69 6d 65 73 5b 6c 65 66 | 74 5d 20 3d 20 73 65 74 |imes[lef|t] = set|
|00000870| 69 6d 65 73 5b 6c 61 73 | 74 5d 20 3b 0d 09 73 65 |imes[las|t] ;..se|
|00000880| 74 69 6d 65 73 5b 6c 61 | 73 74 5d 20 3d 20 74 65 |times[la|st] = te|
|00000890| 6d 70 66 20 3b 0d 0d 09 | 74 65 6d 70 62 20 3d 20 |mpf ;...|tempb = |
|000008a0| 76 6f 69 63 65 5b 6c 65 | 66 74 5d 20 3b 0d 09 76 |voice[le|ft] ;..v|
|000008b0| 6f 69 63 65 5b 6c 65 66 | 74 5d 20 3d 20 76 6f 69 |oice[lef|t] = voi|
|000008c0| 63 65 5b 6c 61 73 74 5d | 20 3b 0d 09 76 6f 69 63 |ce[last]| ;..voic|
|000008d0| 65 5b 6c 61 73 74 5d 20 | 3d 20 74 65 6d 70 62 20 |e[last] |= tempb |
|000008e0| 3b 0d 0d 09 74 65 6d 70 | 62 20 3d 20 6e 6f 74 65 |;...temp|b = note|
|000008f0| 6e 75 6d 5b 6c 65 66 74 | 5d 20 3b 0d 09 6e 6f 74 |num[left|] ;..not|
|00000900| 65 6e 75 6d 5b 6c 65 66 | 74 5d 20 3d 20 6e 6f 74 |enum[lef|t] = not|
|00000910| 65 6e 75 6d 5b 6c 61 73 | 74 5d 20 3b 0d 09 6e 6f |enum[las|t] ;..no|
|00000920| 74 65 6e 75 6d 5b 6c 61 | 73 74 5d 20 3d 20 74 65 |tenum[la|st] = te|
|00000930| 6d 70 62 20 3b 0d 0d 09 | 74 65 6d 70 62 20 3d 20 |mpb ;...|tempb = |
|00000940| 61 6d 70 5b 6c 65 66 74 | 5d 20 3b 0d 09 61 6d 70 |amp[left|] ;..amp|
|00000950| 5b 6c 65 66 74 5d 20 3d | 20 61 6d 70 5b 6c 61 73 |[left] =| amp[las|
|00000960| 74 5d 20 3b 0d 09 61 6d | 70 5b 6c 61 73 74 5d 20 |t] ;..am|p[last] |
|00000970| 3d 20 74 65 6d 70 62 20 | 3b 0d 09 51 75 69 63 6b |= tempb |;..Quick|
|00000980| 53 6f 72 74 28 6c 65 66 | 74 2c 6c 61 73 74 2d 31 |Sort(lef|t,last-1|
|00000990| 29 3b 0d 09 51 75 69 63 | 6b 53 6f 72 74 28 6c 61 |);..Quic|kSort(la|
|000009a0| 73 74 2b 31 2c 72 69 67 | 68 74 29 3b 0d 7d 0d 0d |st+1,rig|ht);.}..|
|000009b0| 6d 61 69 6e 28 61 72 67 | 63 2c 61 72 67 76 29 0d |main(arg|c,argv).|
|000009c0| 20 20 20 20 69 6e 74 20 | 61 72 67 63 3b 0d 20 20 |    int |argc;.  |
|000009d0| 20 20 63 68 61 72 20 20 | 20 20 2a 61 72 67 76 5b |  char  |  *argv[|
|000009e0| 5d 3b 0d 7b 0d 09 63 68 | 61 72 09 63 68 3b 0d 09 |];.{..ch|ar.ch;..|
|000009f0| 66 6c 6f 61 74 09 70 31 | 2c 70 32 2c 70 33 2c 70 |float.p1|,p2,p3,p|
|00000a00| 34 2c 70 35 3b 0d 20 20 | 20 20 75 6e 73 69 67 6e |4,p5;.  |  unsign|
|00000a10| 65 64 20 73 68 6f 72 74 | 09 74 65 6d 70 62 3b 0d |ed short|.tempb;.|
|00000a20| 09 69 6e 74 09 09 6e 6f | 74 65 43 6f 75 6e 74 3d |.int..no|teCount=|
|00000a30| 30 2c 69 2c 6a 3b 0d 09 | 6c 6f 6e 67 09 62 79 74 |0,i,j;..|long.byt|
|00000a40| 65 43 6f 75 6e 74 3b 0d | 20 20 20 20 6c 6f 6e 67 |eCount;.|    long|
|00000a50| 20 20 20 20 74 6f 74 61 | 6c 74 69 63 6b 73 2c 74 |    tota|lticks,t|
|00000a60| 65 6d 70 6c 3b 0d 09 6c | 6f 6e 67 09 74 65 6d 70 |empl;..l|ong.temp|
|00000a70| 6f 20 3d 20 31 30 30 30 | 30 30 30 3b 09 2f 2a 20 |o = 1000|000;./* |
|00000a80| 74 65 6d 70 6f 20 69 6e | 20 6d 69 63 72 6f 20 73 |tempo in| micro s|
|00000a90| 65 63 6f 6e 64 73 20 70 | 65 72 20 71 75 61 72 74 |econds p|er quart|
|00000aa0| 65 72 20 6e 6f 74 65 20 | 2a 2f 0d 20 20 20 20 6c |er note |*/.    l|
|00000ab0| 6f 6e 67 20 20 20 20 61 | 72 72 61 79 73 69 7a 65 |ong    a|rraysize|
|00000ac0| 3b 0d 0d 20 20 20 20 61 | 72 72 61 79 73 69 7a 65 |;..    a|rraysize|
|00000ad0| 20 3d 20 33 35 30 30 3b | 0d 20 20 20 20 69 66 28 | = 3500;|.    if(|
|00000ae0| 61 72 67 63 3d 3d 34 29 | 0d 20 20 20 20 20 20 20 |argc==4)|.       |
|00000af0| 20 73 73 63 61 6e 66 28 | 61 72 67 76 5b 33 5d 2c | sscanf(|argv[3],|
|00000b00| 22 25 64 22 2c 26 61 72 | 72 61 79 73 69 7a 65 29 |"%d",&ar|raysize)|
|00000b10| 3b 0d 20 20 20 20 69 66 | 28 61 72 67 63 21 3d 33 |;.    if|(argc!=3|
|00000b20| 20 26 26 20 61 72 67 63 | 21 3d 34 29 0d 20 20 20 | && argc|!=4).   |
|00000b30| 20 7b 0d 20 20 20 20 20 | 20 20 20 70 72 69 6e 74 | {.     |   print|
|00000b40| 66 28 22 55 73 61 67 65 | 3a 20 25 73 20 63 73 6f |f("Usage|: %s cso|
|00000b50| 75 6e 64 2e 73 63 6f 20 | 6d 69 64 69 66 69 6c 65 |und.sco |midifile|
|00000b60| 2e 66 69 6c 20 5b 6d 61 | 78 65 76 65 6e 74 63 6f |.fil [ma|xeventco|
|00000b70| 75 6e 74 5d 5c 6e 22 2c | 61 72 67 76 5b 30 5d 29 |unt]\n",|argv[0])|
|00000b80| 3b 0d 20 20 20 20 20 20 | 20 20 65 78 69 74 28 2d |;.      |  exit(-|
|00000b90| 31 29 3b 0d 20 20 20 20 | 7d 0d 20 20 20 20 70 72 |1);.    |}.    pr|
|00000ba0| 69 6e 74 66 28 22 54 68 | 69 73 20 70 72 6f 67 72 |intf("Th|is progr|
|00000bb0| 61 6d 20 77 69 6c 6c 20 | 72 65 61 64 20 74 68 65 |am will |read the|
|00000bc0| 20 43 20 53 6f 75 6e 64 | 20 66 6f 72 6d 61 74 20 | C Sound| format |
|00000bd0| 66 69 6c 65 20 6e 61 6d | 65 64 20 25 73 2c 20 61 |file nam|ed %s, a|
|00000be0| 6e 64 5c 6e 22 2c 61 72 | 67 76 5b 31 5d 29 3b 0d |nd\n",ar|gv[1]);.|
|00000bf0| 20 20 20 20 70 72 69 6e | 74 66 28 22 74 68 65 6e |    prin|tf("then|
|00000c00| 20 77 72 69 74 65 20 69 | 74 20 69 6e 20 4d 69 64 | write i|t in Mid|
|00000c10| 69 20 66 69 6c 65 20 66 | 6f 72 6d 61 74 20 74 6f |i file f|ormat to|
|00000c20| 20 74 68 65 20 66 69 6c | 65 20 25 73 2e 5c 6e 5c | the fil|e %s.\n\|
|00000c30| 6e 5c 6e 22 2c 61 72 67 | 76 5b 32 5d 29 3b 0d 20 |n\n",arg|v[2]);. |
|00000c40| 20 20 20 0d 2f 2a 20 61 | 6c 6c 6f 63 61 74 65 20 |   ./* a|llocate |
|00000c50| 73 74 6f 72 61 67 65 20 | 61 72 72 61 79 73 20 2a |storage |arrays *|
|00000c60| 2f 0d 20 20 20 20 73 65 | 74 69 6d 65 73 20 3d 20 |/.    se|times = |
|00000c70| 28 66 6c 6f 61 74 20 2a | 29 20 63 61 6c 6c 6f 63 |(float *|) calloc|
|00000c80| 28 61 72 72 61 79 73 69 | 7a 65 2c 73 69 7a 65 6f |(arraysi|ze,sizeo|
|00000c90| 66 28 66 6c 6f 61 74 29 | 29 3b 0d 20 20 20 20 76 |f(float)|);.    v|
|00000ca0| 6f 69 63 65 20 3d 20 28 | 75 6e 73 69 67 6e 65 64 |oice = (|unsigned|
|00000cb0| 20 73 68 6f 72 74 20 2a | 29 20 63 61 6c 6c 6f 63 | short *|) calloc|
|00000cc0| 28 61 72 72 61 79 73 69 | 7a 65 2c 73 69 7a 65 6f |(arraysi|ze,sizeo|
|00000cd0| 66 28 75 6e 73 69 67 6e | 65 64 20 73 68 6f 72 74 |f(unsign|ed short|
|00000ce0| 29 29 3b 0d 20 20 20 20 | 6e 6f 74 65 6e 75 6d 20 |));.    |notenum |
|00000cf0| 3d 20 28 75 6e 73 69 67 | 6e 65 64 20 73 68 6f 72 |= (unsig|ned shor|
|00000d00| 74 20 2a 29 20 63 61 6c | 6c 6f 63 28 61 72 72 61 |t *) cal|loc(arra|
|00000d10| 79 73 69 7a 65 2c 73 69 | 7a 65 6f 66 28 75 6e 73 |ysize,si|zeof(uns|
|00000d20| 69 67 6e 65 64 20 73 68 | 6f 72 74 29 29 3b 0d 20 |igned sh|ort));. |
|00000d30| 20 20 20 61 6d 70 20 3d | 20 28 75 6e 73 69 67 6e |   amp =| (unsign|
|00000d40| 65 64 20 73 68 6f 72 74 | 20 2a 29 20 63 61 6c 6c |ed short| *) call|
|00000d50| 6f 63 28 61 72 72 61 79 | 73 69 7a 65 2c 73 69 7a |oc(array|size,siz|
|00000d60| 65 6f 66 28 75 6e 73 69 | 67 6e 65 64 20 73 68 6f |eof(unsi|gned sho|
|00000d70| 72 74 29 29 3b 0d 09 69 | 66 28 73 65 74 69 6d 65 |rt));..i|f(setime|
|00000d80| 73 3d 3d 4e 55 4c 4c 7c | 7c 76 6f 69 63 65 3d 3d |s==NULL|||voice==|
|00000d90| 4e 55 4c 4c 7c 7c 6e 6f | 74 65 6e 75 6d 3d 3d 4e |NULL||no|tenum==N|
|00000da0| 55 4c 4c 7c 7c 61 6d 70 | 3d 3d 4e 55 4c 4c 29 0d |ULL||amp|==NULL).|
|00000db0| 09 7b 0d 09 09 70 72 69 | 6e 74 66 28 22 45 6e 6f |.{...pri|ntf("Eno|
|00000dc0| 75 67 68 20 73 74 6f 72 | 61 67 65 20 63 6f 75 6c |ugh stor|age coul|
|00000dd0| 64 20 6e 6f 74 20 62 65 | 20 61 6c 6c 6f 63 61 74 |d not be| allocat|
|00000de0| 65 64 20 74 6f 20 72 75 | 6e 20 74 68 69 73 20 70 |ed to ru|n this p|
|00000df0| 72 6f 67 72 61 6d 2e 5c | 6e 22 29 3b 0d 09 09 65 |rogram.\|n");...e|
|00000e00| 78 69 74 28 2d 31 29 3b | 0d 09 7d 0d 0d 20 20 20 |xit(-1);|..}..   |
|00000e10| 20 66 70 20 3d 20 66 6f | 70 65 6e 28 61 72 67 76 | fp = fo|pen(argv|
|00000e20| 5b 31 5d 2c 22 72 22 29 | 3b 0d 09 69 66 28 66 70 |[1],"r")|;..if(fp|
|00000e30| 20 3d 3d 20 4e 55 4c 4c | 29 0d 09 7b 0d 20 20 20 | == NULL|)..{.   |
|00000e40| 20 20 20 20 20 70 72 69 | 6e 74 66 28 22 20 45 72 |     pri|ntf(" Er|
|00000e50| 72 6f 72 20 3a 20 54 68 | 65 20 66 69 6c 65 20 25 |ror : Th|e file %|
|00000e60| 73 20 63 6f 75 6c 64 20 | 6e 6f 74 20 62 65 20 6f |s could |not be o|
|00000e70| 70 65 6e 65 64 20 21 5c | 6e 22 2c 61 72 67 76 5b |pened !\|n",argv[|
|00000e80| 31 5d 29 3b 0d 09 09 65 | 78 69 74 28 2d 31 29 3b |1]);...e|xit(-1);|
|00000e90| 0d 09 7d 0d 0d 0d 2f 2a | 20 72 65 61 64 20 69 6e |..}.../*| read in|
|00000ea0| 20 74 68 65 20 43 73 63 | 6f 72 65 20 2a 2f 0d 20 | the Csc|ore */. |
|00000eb0| 20 20 20 70 72 69 6e 74 | 66 28 22 20 52 65 61 64 |   print|f(" Read|
|00000ec0| 69 6e 67 20 69 6e 20 74 | 68 65 20 43 20 53 6f 75 |ing in t|he C Sou|
|00000ed0| 6e 64 20 73 63 6f 72 65 | 2e 20 69 20 63 61 72 64 |nd score|. i card|
|00000ee0| 73 20 6f 6e 6c 79 2e 5c | 6e 22 29 3b 0d 09 77 68 |s only.\|n");..wh|
|00000ef0| 69 6c 65 28 66 73 63 61 | 6e 66 28 66 70 2c 22 25 |ile(fsca|nf(fp,"%|
|00000f00| 63 22 2c 26 63 68 29 21 | 3d 45 4f 46 29 0d 09 7b |c",&ch)!|=EOF)..{|
|00000f10| 0d 09 09 69 66 28 63 68 | 3d 3d 27 3b 27 29 0d 09 |...if(ch|==';')..|
|00000f20| 09 09 77 68 69 6c 65 28 | 66 73 63 61 6e 66 28 66 |..while(|fscanf(f|
|00000f30| 70 2c 22 25 63 22 2c 26 | 63 68 29 21 3d 45 4f 46 |p,"%c",&|ch)!=EOF|
|00000f40| 20 26 26 20 63 68 21 3d | 27 5c 6e 27 29 0d 09 09 | && ch!=|'\n')...|
|00000f50| 09 09 7b 7d 0d 09 09 65 | 6c 73 65 20 69 66 28 63 |..{}...e|lse if(c|
|00000f60| 68 3d 3d 27 69 27 7c 7c | 63 68 3d 3d 27 49 27 29 |h=='i'|||ch=='I')|
|00000f70| 0d 09 09 7b 0d 09 09 09 | 66 73 63 61 6e 66 28 66 |...{....|fscanf(f|
|00000f80| 70 2c 22 25 66 20 25 66 | 20 25 66 20 25 66 20 25 |p,"%f %f| %f %f %|
|00000f90| 66 22 2c 26 70 31 2c 26 | 70 32 2c 26 70 33 2c 26 |f",&p1,&|p2,&p3,&|
|00000fa0| 70 34 2c 26 70 35 29 3b | 0d 09 09 09 20 73 65 74 |p4,&p5);|.... set|
|00000fb0| 69 6d 65 73 5b 6e 6f 74 | 65 43 6f 75 6e 74 5d 20 |imes[not|eCount] |
|00000fc0| 3d 20 70 32 3b 0d 09 09 | 09 20 76 6f 69 63 65 5b |= p2;...|. voice[|
|00000fd0| 6e 6f 74 65 43 6f 75 6e | 74 5d 20 3d 20 70 31 3b |noteCoun|t] = p1;|
|00000fe0| 0d 09 09 09 20 6e 6f 74 | 65 6e 75 6d 5b 6e 6f 74 |.... not|enum[not|
|00000ff0| 65 43 6f 75 6e 74 5d 20 | 3d 20 70 35 3b 0d 09 09 |eCount] |= p5;...|
|00001000| 09 20 61 6d 70 5b 6e 6f | 74 65 43 6f 75 6e 74 5d |. amp[no|teCount]|
|00001010| 20 3d 20 70 34 3b 0d 09 | 09 09 6e 6f 74 65 43 6f | = p4;..|..noteCo|
|00001020| 75 6e 74 2b 2b 20 3b 0d | 09 09 09 20 73 65 74 69 |unt++ ;.|... seti|
|00001030| 6d 65 73 5b 6e 6f 74 65 | 43 6f 75 6e 74 5d 20 3d |mes[note|Count] =|
|00001040| 20 70 33 2b 70 32 3b 0d | 09 09 09 20 76 6f 69 63 | p3+p2;.|... voic|
|00001050| 65 5b 6e 6f 74 65 43 6f | 75 6e 74 5d 20 3d 20 31 |e[noteCo|unt] = 1|
|00001060| 30 30 2b 70 31 3b 0d 09 | 09 09 20 6e 6f 74 65 6e |00+p1;..|.. noten|
|00001070| 75 6d 5b 6e 6f 74 65 43 | 6f 75 6e 74 5d 20 3d 20 |um[noteC|ount] = |
|00001080| 70 35 3b 0d 09 09 09 20 | 61 6d 70 5b 6e 6f 74 65 |p5;.... |amp[note|
|00001090| 43 6f 75 6e 74 5d 20 3d | 20 30 3b 0d 09 09 09 6e |Count] =| 0;....n|
|000010a0| 6f 74 65 43 6f 75 6e 74 | 2b 2b 20 3b 0d 20 20 20 |oteCount|++ ;.   |
|000010b0| 20 20 20 20 20 20 20 20 | 20 69 66 28 6e 6f 74 65 |        | if(note|
|000010c0| 43 6f 75 6e 74 3e 61 72 | 72 61 79 73 69 7a 65 2d |Count>ar|raysize-|
|000010d0| 32 29 0d 20 09 09 09 7b | 0d 09 09 09 20 20 70 72 |2). ...{|....  pr|
|000010e0| 69 6e 74 66 28 22 20 45 | 72 72 6f 72 20 3a 20 74 |intf(" E|rror : t|
|000010f0| 6f 6f 20 6d 61 6e 79 20 | 6e 6f 74 65 73 20 73 6f |oo many |notes so|
|00001100| 2c 20 6e 6f 74 20 61 6c | 6c 20 6f 66 20 74 68 65 |, not al|l of the|
|00001110| 20 6e 6f 74 65 73 20 63 | 6f 75 6c 64 20 62 65 20 | notes c|ould be |
|00001120| 70 72 6f 63 65 73 73 65 | 64 20 21 5c 6e 22 29 3b |processe|d !\n");|
|00001130| 0d 09 09 09 20 20 62 72 | 65 61 6b 3b 0d 09 09 09 |....  br|eak;....|
|00001140| 7d 0d 09 09 7d 0d 09 7d | 0d 09 66 63 6c 6f 73 65 |}...}..}|..fclose|
|00001150| 28 66 70 29 3b 0d 20 20 | 20 20 70 72 69 6e 74 66 |(fp);.  |  printf|
|00001160| 28 22 20 41 20 74 6f 74 | 61 6c 20 6f 66 20 25 64 |(" A tot|al of %d|
|00001170| 20 65 76 65 6e 74 73 20 | 77 65 72 65 20 72 65 61 | events |were rea|
|00001180| 64 2e 5c 6e 22 2c 6e 6f | 74 65 43 6f 75 6e 74 29 |d.\n",no|teCount)|
|00001190| 3b 0d 0d 2f 2a 20 73 6f | 72 74 20 74 68 65 20 73 |;../* so|rt the s|
|000011a0| 63 6f 72 65 20 62 79 20 | 73 65 74 69 6d 65 73 20 |core by |setimes |
|000011b0| 2a 2f 0d 09 70 72 69 6e | 74 66 28 22 5c 6e 20 53 |*/..prin|tf("\n S|
|000011c0| 6f 72 74 69 6e 67 20 74 | 68 65 20 43 73 6f 75 6e |orting t|he Csoun|
|000011d0| 64 20 73 63 6f 72 65 2e | 5c 6e 22 29 3b 0d 2f 2a |d score.|\n");./*|
|000011e0| 20 72 65 63 75 72 73 69 | 76 65 20 73 6f 72 74 20 | recursi|ve sort |
|000011f0| 2a 2f 0d 09 51 75 69 63 | 6b 53 6f 72 74 28 30 2c |*/..Quic|kSort(0,|
|00001200| 6e 6f 74 65 43 6f 75 6e | 74 2d 31 29 3b 0d 2f 2a |noteCoun|t-1);./*|
|00001210| 20 62 75 62 62 6c 65 20 | 73 6f 72 74 20 2a 2f 0d | bubble |sort */.|
|00001220| 2f 2a 20 20 20 20 66 6f | 72 28 69 3d 30 3b 69 3c |/*    fo|r(i=0;i<|
|00001230| 6e 6f 74 65 43 6f 75 6e | 74 3b 69 2b 2b 29 0d 20 |noteCoun|t;i++). |
|00001240| 20 20 20 7b 0d 09 70 72 | 69 6e 74 66 28 22 5c 6e |   {..pr|intf("\n|
|00001250| 20 53 6f 72 74 69 6e 67 | 20 74 68 65 20 43 73 6f | Sorting| the Cso|
|00001260| 75 6e 64 20 73 63 6f 72 | 65 2e 5c 6e 22 29 3b 0d |und scor|e.\n");.|
|00001270| 20 20 20 20 20 20 66 6f | 72 28 6a 3d 31 3b 6a 3c |      fo|r(j=1;j<|
|00001280| 6e 6f 74 65 43 6f 75 6e | 74 3b 6a 2b 2b 29 0d 09 |noteCoun|t;j++)..|
|00001290| 20 20 20 20 69 66 28 73 | 65 74 69 6d 65 73 5b 6a |    if(s|etimes[j|
|000012a0| 2d 31 5d 3e 73 65 74 69 | 6d 65 73 5b 6a 5d 29 0d |-1]>seti|mes[j]).|
|000012b0| 09 20 20 20 20 7b 0d 09 | 09 74 65 6d 70 66 20 3d |.    {..|.tempf =|
|000012c0| 20 73 65 74 69 6d 65 73 | 5b 6a 2d 31 5d 20 3b 0d | setimes|[j-1] ;.|
|000012d0| 09 09 73 65 74 69 6d 65 | 73 5b 6a 2d 31 5d 20 3d |..setime|s[j-1] =|
|000012e0| 20 73 65 74 69 6d 65 73 | 5b 6a 5d 20 3b 0d 09 09 | setimes|[j] ;...|
|000012f0| 73 65 74 69 6d 65 73 5b | 6a 5d 20 3d 20 74 65 6d |setimes[|j] = tem|
|00001300| 70 66 20 3b 0d 0d 09 09 | 74 65 6d 70 62 20 3d 20 |pf ;....|tempb = |
|00001310| 76 6f 69 63 65 5b 6a 2d | 31 5d 20 3b 0d 09 09 76 |voice[j-|1] ;...v|
|00001320| 6f 69 63 65 5b 6a 2d 31 | 5d 20 3d 20 76 6f 69 63 |oice[j-1|] = voic|
|00001330| 65 5b 6a 5d 20 3b 0d 09 | 09 76 6f 69 63 65 5b 6a |e[j] ;..|.voice[j|
|00001340| 5d 20 3d 20 74 65 6d 70 | 62 20 3b 0d 0d 09 09 74 |] = temp|b ;....t|
|00001350| 65 6d 70 62 20 3d 20 6e | 6f 74 65 6e 75 6d 5b 6a |empb = n|otenum[j|
|00001360| 2d 31 5d 20 3b 0d 09 09 | 6e 6f 74 65 6e 75 6d 5b |-1] ;...|notenum[|
|00001370| 6a 2d 31 5d 20 3d 20 6e | 6f 74 65 6e 75 6d 5b 6a |j-1] = n|otenum[j|
|00001380| 5d 20 3b 0d 09 09 6e 6f | 74 65 6e 75 6d 5b 6a 5d |] ;...no|tenum[j]|
|00001390| 20 3d 20 74 65 6d 70 62 | 20 3b 0d 0d 09 09 74 65 | = tempb| ;....te|
|000013a0| 6d 70 62 20 3d 20 61 6d | 70 5b 6a 2d 31 5d 20 3b |mpb = am|p[j-1] ;|
|000013b0| 0d 09 09 61 6d 70 5b 6a | 2d 31 5d 20 3d 20 61 6d |...amp[j|-1] = am|
|000013c0| 70 5b 6a 5d 20 3b 0d 09 | 09 61 6d 70 5b 6a 5d 20 |p[j] ;..|.amp[j] |
|000013d0| 3d 20 74 65 6d 70 62 20 | 3b 0d 09 20 20 20 20 7d |= tempb |;..    }|
|000013e0| 0d 09 7d 0d 2a 2f 0d 2f | 2a 20 70 72 69 6e 74 20 |..}.*/./|* print |
|000013f0| 74 68 65 20 73 63 6f 72 | 65 20 2a 2f 0d 20 20 20 |the scor|e */.   |
|00001400| 20 66 70 20 3d 20 66 6f | 70 65 6e 28 61 72 67 76 | fp = fo|pen(argv|
|00001410| 5b 32 5d 2c 22 77 22 29 | 3b 0d 09 69 66 28 66 70 |[2],"w")|;..if(fp|
|00001420| 20 3d 3d 20 4e 55 4c 4c | 29 0d 09 7b 0d 20 20 20 | == NULL|)..{.   |
|00001430| 20 20 20 20 20 70 72 69 | 6e 74 66 28 22 5c 6e 20 |     pri|ntf("\n |
|00001440| 45 72 72 6f 72 20 3a 20 | 54 68 65 20 66 69 6c 65 |Error : |The file|
|00001450| 20 25 73 20 63 6f 75 6c | 64 20 6e 6f 74 20 62 65 | %s coul|d not be|
|00001460| 20 6f 70 65 6e 65 64 20 | 21 5c 6e 22 2c 61 72 67 | opened |!\n",arg|
|00001470| 76 5b 32 5d 29 3b 0d 09 | 09 65 78 69 74 28 2d 31 |v[2]);..|.exit(-1|
|00001480| 29 3b 0d 09 7d 0d 09 0d | 09 70 72 69 6e 74 66 28 |);..}...|.printf(|
|00001490| 22 5c 6e 20 77 72 69 74 | 69 6e 67 20 74 68 65 20 |"\n writ|ing the |
|000014a0| 4d 69 64 69 20 66 69 6c | 65 2e 5c 6e 22 29 3b 0d |Midi fil|e.\n");.|
|000014b0| 09 70 75 74 63 28 27 4d | 27 2c 66 70 29 3b 09 2f |.putc('M|',fp);./|
|000014c0| 2a 20 70 75 74 20 27 4d | 54 68 64 27 20 68 65 61 |* put 'M|Thd' hea|
|000014d0| 64 65 72 20 2a 2f 0d 09 | 70 75 74 63 28 27 54 27 |der */..|putc('T'|
|000014e0| 2c 66 70 29 3b 0d 09 70 | 75 74 63 28 27 68 27 2c |,fp);..p|utc('h',|
|000014f0| 66 70 29 3b 0d 09 70 75 | 74 63 28 27 64 27 2c 66 |fp);..pu|tc('d',f|
|00001500| 70 29 3b 0d 09 70 75 74 | 63 28 30 2c 66 70 29 3b |p);..put|c(0,fp);|
|00001510| 09 09 2f 2a 20 70 75 74 | 20 6c 65 6e 67 74 68 20 |../* put| length |
|00001520| 2a 2f 0d 09 70 75 74 63 | 28 30 2c 66 70 29 3b 0d |*/..putc|(0,fp);.|
|00001530| 09 70 75 74 63 28 30 2c | 66 70 29 3b 0d 09 70 75 |.putc(0,|fp);..pu|
|00001540| 74 63 28 36 2c 66 70 29 | 3b 0d 09 70 75 74 63 28 |tc(6,fp)|;..putc(|
|00001550| 30 2c 66 70 29 3b 09 09 | 2f 2a 20 66 6f 72 6d 61 |0,fp);..|/* forma|
|00001560| 74 20 30 20 2a 2f 0d 09 | 70 75 74 63 28 30 2c 66 |t 0 */..|putc(0,f|
|00001570| 70 29 3b 0d 09 70 75 74 | 63 28 30 2c 66 70 29 3b |p);..put|c(0,fp);|
|00001580| 09 09 2f 2a 20 6f 6e 65 | 20 74 72 61 63 6b 20 2a |../* one| track *|
|00001590| 2f 0d 09 70 75 74 63 28 | 31 2c 66 70 29 3b 0d 09 |/..putc(|1,fp);..|
|000015a0| 70 75 74 63 28 31 2c 66 | 70 29 3b 09 09 2f 2a 20 |putc(1,f|p);../* |
|000015b0| 34 38 30 20 74 69 63 6b | 73 20 70 65 72 20 71 75 |480 tick|s per qu|
|000015c0| 61 72 74 65 72 20 2a 2f | 0d 09 70 75 74 63 28 30 |arter */|..putc(0|
|000015d0| 78 45 30 2c 66 70 29 3b | 0d 09 70 75 74 63 28 27 |xE0,fp);|..putc('|
|000015e0| 4d 27 2c 66 70 29 3b 09 | 2f 2a 20 70 75 74 20 27 |M',fp);.|/* put '|
|000015f0| 4d 54 72 6b 27 20 68 65 | 61 64 65 72 20 2a 2f 0d |MTrk' he|ader */.|
|00001600| 09 70 75 74 63 28 27 54 | 27 2c 66 70 29 3b 0d 09 |.putc('T|',fp);..|
|00001610| 70 75 74 63 28 27 72 27 | 2c 66 70 29 3b 0d 09 70 |putc('r'|,fp);..p|
|00001620| 75 74 63 28 27 6b 27 2c | 66 70 29 3b 0d 09 0d 20 |utc('k',|fp);... |
|00001630| 20 20 20 70 72 69 6e 74 | 66 28 22 20 63 61 6c 63 |   print|f(" calc|
|00001640| 75 6c 61 74 69 6e 67 20 | 74 72 61 63 6b 20 6c 65 |ulating |track le|
|00001650| 6e 67 74 68 20 3d 20 22 | 29 3b 0d 20 20 20 20 2f |ngth = "|);.    /|
|00001660| 2a 20 63 61 6c 63 20 74 | 72 61 63 6b 20 6c 65 6e |* calc t|rack len|
|00001670| 67 74 68 20 2a 2f 0d 09 | 62 79 74 65 43 6f 75 6e |gth */..|byteCoun|
|00001680| 74 20 3d 20 30 3b 0d 09 | 74 6f 74 61 6c 74 69 63 |t = 0;..|totaltic|
|00001690| 6b 73 20 3d 20 30 3b 0d | 09 66 6f 72 28 69 3d 30 |ks = 0;.|.for(i=0|
|000016a0| 3b 69 3c 6e 6f 74 65 43 | 6f 75 6e 74 3b 69 2b 2b |;i<noteC|ount;i++|
|000016b0| 29 0d 09 7b 0d 09 09 74 | 65 6d 70 6c 20 3d 20 28 |)..{...t|empl = (|
|000016c0| 64 6f 75 62 6c 65 29 20 | 73 65 74 69 6d 65 73 5b |double) |setimes[|
|000016d0| 69 5d 20 2a 20 34 38 30 | 2e 20 3b 0d 09 09 62 79 |i] * 480|. ;...by|
|000016e0| 74 65 43 6f 75 6e 74 20 | 2b 3d 20 43 6f 75 6e 74 |teCount |+= Count|
|000016f0| 57 72 69 74 65 56 61 72 | 4c 65 6e 28 74 65 6d 70 |WriteVar|Len(temp|
|00001700| 6c 2d 74 6f 74 61 6c 74 | 69 63 6b 73 29 3b 0d 09 |l-totalt|icks);..|
|00001710| 09 74 6f 74 61 6c 74 69 | 63 6b 73 20 3d 20 74 65 |.totalti|cks = te|
|00001720| 6d 70 6c 3b 0d 09 09 62 | 79 74 65 43 6f 75 6e 74 |mpl;...b|yteCount|
|00001730| 2b 3d 33 3b 0d 09 7d 0d | 09 62 79 74 65 43 6f 75 |+=3;..}.|.byteCou|
|00001740| 6e 74 2b 3d 34 3b 09 2f | 2a 20 66 6f 72 20 65 6e |nt+=4;./|* for en|
|00001750| 64 20 6f 66 20 74 72 61 | 63 6b 20 6d 61 72 6b 20 |d of tra|ck mark |
|00001760| 2a 2f 0d 20 20 20 20 70 | 72 69 6e 74 66 28 22 25 |*/.    p|rintf("%|
|00001770| 6c 64 20 62 79 74 65 73 | 5c 6e 22 2c 62 79 74 65 |ld bytes|\n",byte|
|00001780| 43 6f 75 6e 74 29 3b 0d | 09 0d 09 70 75 74 63 28 |Count);.|...putc(|
|00001790| 28 69 6e 74 29 28 62 79 | 74 65 43 6f 75 6e 74 3e |(int)(by|teCount>|
|000017a0| 3e 32 34 29 2c 66 70 29 | 3b 09 09 2f 2a 20 70 75 |>24),fp)|;../* pu|
|000017b0| 74 20 6c 65 6e 67 74 68 | 20 6f 66 20 74 72 61 63 |t length| of trac|
|000017c0| 6b 20 2a 2f 0d 09 70 75 | 74 63 28 28 69 6e 74 29 |k */..pu|tc((int)|
|000017d0| 28 62 79 74 65 43 6f 75 | 6e 74 3e 3e 31 36 29 2c |(byteCou|nt>>16),|
|000017e0| 66 70 29 3b 0d 09 70 75 | 74 63 28 28 69 6e 74 29 |fp);..pu|tc((int)|
|000017f0| 28 62 79 74 65 43 6f 75 | 6e 74 3e 3e 38 29 2c 66 |(byteCou|nt>>8),f|
|00001800| 70 29 3b 0d 09 70 75 74 | 63 28 28 69 6e 74 29 28 |p);..put|c((int)(|
|00001810| 62 79 74 65 43 6f 75 6e | 74 29 2c 66 70 29 3b 0d |byteCoun|t),fp);.|
|00001820| 0d 09 2f 2a 20 63 61 6c | 63 20 61 6e 64 20 70 75 |../* cal|c and pu|
|00001830| 74 20 74 72 61 63 6b 20 | 2a 2f 0d 20 20 20 20 70 |t track |*/.    p|
|00001840| 72 69 6e 74 66 28 22 20 | 77 72 69 74 69 6e 67 20 |rintf(" |writing |
|00001850| 74 72 61 63 6b 20 64 61 | 74 61 2e 5c 6e 22 29 3b |track da|ta.\n");|
|00001860| 0d 09 74 6f 74 61 6c 74 | 69 63 6b 73 20 3d 20 30 |..totalt|icks = 0|
|00001870| 3b 0d 09 66 6f 72 28 69 | 3d 30 3b 69 3c 6e 6f 74 |;..for(i|=0;i<not|
|00001880| 65 43 6f 75 6e 74 3b 69 | 2b 2b 29 0d 09 7b 0d 09 |eCount;i|++)..{..|
|00001890| 09 74 65 6d 70 6c 20 3d | 20 28 64 6f 75 62 6c 65 |.templ =| (double|
|000018a0| 29 20 73 65 74 69 6d 65 | 73 5b 69 5d 20 2a 20 34 |) setime|s[i] * 4|
|000018b0| 38 30 2e 20 3b 0d 09 09 | 57 72 69 74 65 56 61 72 |80. ;...|WriteVar|
|000018c0| 4c 65 6e 28 74 65 6d 70 | 6c 2d 74 6f 74 61 6c 74 |Len(temp|l-totalt|
|000018d0| 69 63 6b 73 29 3b 0d 09 | 09 69 66 28 76 6f 69 63 |icks);..|.if(voic|
|000018e0| 65 5b 69 5d 3c 31 30 31 | 29 20 70 75 74 63 28 28 |e[i]<101|) putc((|
|000018f0| 69 6e 74 29 30 78 39 30 | 2b 28 28 76 6f 69 63 65 |int)0x90|+((voice|
|00001900| 5b 69 5d 2d 31 29 20 26 | 20 30 78 30 46 29 2c 66 |[i]-1) &| 0x0F),f|
|00001910| 70 29 3b 20 2f 2a 6e 6f | 74 65 20 6e 6f 2f 6f 66 |p); /*no|te no/of|
|00001920| 66 20 2a 2f 0d 09 09 65 | 6c 73 65 09 09 09 20 70 |f */...e|lse... p|
|00001930| 75 74 63 28 28 69 6e 74 | 29 30 78 38 30 2b 28 28 |utc((int|)0x80+((|
|00001940| 76 6f 69 63 65 5b 69 5d | 2d 31 30 31 29 20 26 20 |voice[i]|-101) & |
|00001950| 30 78 30 46 29 2c 66 70 | 29 3b 0d 09 09 70 75 74 |0x0F),fp|);...put|
|00001960| 63 28 28 69 6e 74 29 6e | 6f 74 65 6e 75 6d 5b 69 |c((int)n|otenum[i|
|00001970| 5d 2c 66 70 29 3b 09 09 | 09 09 09 09 09 09 2f 2a |],fp);..|....../*|
|00001980| 20 6e 6f 74 65 20 6e 75 | 6d 62 65 72 20 2a 2f 0d | note nu|mber */.|
|00001990| 09 09 70 75 74 63 28 28 | 69 6e 74 29 61 6d 70 5b |..putc((|int)amp[|
|000019a0| 69 5d 2c 66 70 29 3b 09 | 09 09 09 09 09 09 09 09 |i],fp);.|........|
|000019b0| 2f 2a 20 76 65 6c 6f 63 | 69 74 79 20 2a 2f 0d 0d |/* veloc|ity */..|
|000019c0| 09 09 74 6f 74 61 6c 74 | 69 63 6b 73 20 3d 20 74 |..totalt|icks = t|
|000019d0| 65 6d 70 6c 3b 0d 09 7d | 0d 0d 09 70 75 74 63 28 |empl;..}|...putc(|
|000019e0| 30 2c 66 70 29 3b 09 09 | 2f 2a 20 70 75 74 20 65 |0,fp);..|/* put e|
|000019f0| 6e 64 20 6f 66 20 74 72 | 61 63 6b 20 2a 2f 0d 09 |nd of tr|ack */..|
|00001a00| 70 75 74 63 28 30 78 46 | 46 2c 66 70 29 3b 0d 09 |putc(0xF|F,fp);..|
|00001a10| 70 75 74 63 28 30 78 32 | 46 2c 66 70 29 3b 0d 09 |putc(0x2|F,fp);..|
|00001a20| 70 75 74 63 28 30 2c 66 | 70 29 3b 0d 0d 09 66 63 |putc(0,f|p);...fc|
|00001a30| 6c 6f 73 65 28 66 70 29 | 3b 0d 09 66 72 65 65 28 |lose(fp)|;..free(|
|00001a40| 73 65 74 69 6d 65 73 29 | 3b 0d 09 66 72 65 65 28 |setimes)|;..free(|
|00001a50| 76 6f 69 63 65 29 3b 0d | 09 66 72 65 65 28 6e 6f |voice);.|.free(no|
|00001a60| 74 65 6e 75 6d 29 3b 0d | 09 66 72 65 65 28 61 6d |tenum);.|.free(am|
|00001a70| 70 29 3b 0d 0d 09 70 72 | 69 6e 74 66 28 22 20 64 |p);...pr|intf(" d|
|00001a80| 6f 6e 65 2e 5c 6e 22 29 | 3b 0d 0d 7d 0d 0d 20 0d |one.\n")|;..}.. .|
|00001a90| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001b10| 00 ff ff 20 03 10 11 00 | 00 00 00 e0 01 ff ff 20 |... ....|....... |
|00001b20| 03 13 79 00 00 00 00 e0 | 02 ff ff 20 03 16 03 00 |..y.....|... ....|
|00001b30| 0a 72 65 61 64 6d 69 64 | 69 2e 63 01 02 00 00 00 |.readmid|i.c.....|
|00001b40| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|00001b50| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 a9 7d 97 2d 00 00 | 00 00 00 00 01 7e ff 20 |...}.-..|.....~. |
|00001b80| 03 16 63 00 00 00 00 e0 | 36 ff ff 20 03 21 2b 00 |..c.....|6.. .!+.|
|00001b90| 00 00 00 e0 37 ff ff 20 | 03 28 d5 00 00 00 00 e0 |....7.. |.(......|
|00001ba0| 00 ff ff 20 03 10 39 00 | 00 00 00 e0 01 ff ff 20 |... ..9.|....... |
|00001bb0| 03 13 a1 00 00 00 00 e0 | 02 ff ff 20 03 16 28 00 |........|... ..(.|
|00001bc0| 00 00 00 e0 06 ff ff 20 | 03 16 6f 00 00 00 00 e0 |....... |..o.....|
|00001bd0| 0b ff ff 20 03 16 b7 00 | 00 00 00 e0 0d ff ff 20 |... ....|....... |
|00001be0| 03 17 55 00 00 00 00 e0 | 1f ff ff 20 03 17 df 00 |..U.....|... ....|
|00001bf0| 00 00 00 e0 20 ff ff 20 | 03 1b 75 00 00 00 00 e0 |.... .. |..u.....|
|00001c00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 48 00 00 |...H..Mo|naco.H..|
|00001c10| 1f 00 00 00 ff ff 00 00 | 00 00 40 80 dd d8 05 ff |........|..@.....|
|00001c20| ff ff 00 00 00 00 00 06 | 00 04 00 50 00 14 01 dc |........|...P....|
|00001c30| 02 7b 00 2a 00 03 01 dd | 02 7d a7 2c 4e 50 00 00 |.{.*....|.}.,NP..|
|00001c40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00001c50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 01 1b 17 dc |...L...L|...2....|
|00001c60| 12 bc 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001c70| 00 0a 03 ed ff ff 00 00 | 00 00 01 1b 14 6c 00 00 |........|.....l..|
+--------+-------------------------+-------------------------+--------+--------+